Visualizations


Column

Inventory (in dth)

16 996

WACOG (Last)

$6.42

Market Price (Last)

$6.75

Inventory Cost

$109,176

Inventory Market Value

$114,723

Column

Inventory

WACOG

Data


Column

Data

---
title: "WACOG Project"
output: 
  flexdashboard::flex_dashboard:
    theme: spacelab
    orientation: rows
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(reactable)
library(flexdashboard)
library(tidyverse)
library(scales)
library(cowplot)

load("data/data.Rdata")

ggplot2::theme_set(new = cowplot::theme_cowplot())
# This project is stored in https://github.com/renan-peres/WACOG
```

# Visualizations

-----------------------------------------------------------------------

## Column {data-width=500}

### Inventory (in dth)

```{r}
inventory <- df %>% summarise(scales::number(last(ending_inventory)))
valueBox(inventory, icon = "ion-soup-can",color = "#68b6fc")
```

### WACOG (Last)

```{r}
wacog <- df %>% summarise(scales::dollar(last(wacog)))
valueBox(wacog, icon = "ion-ios-calculator",color = "#fdc52e")
```

### Market Price (Last)

```{r}
price <- df %>% summarise(scales::dollar(last(market_price)))
valueBox(price, icon = "ion-cash",color = "#fdc52e")
```

### Inventory Cost

```{r}
cost <- df %>% summarise(scales::dollar(last(ending_inventory_cost)))
valueBox(cost, icon = "ion-soup-can",color = "#fdc52e")
```

### Inventory Market Value

```{r}
inventory_value <- df %>% summarise(scales::dollar(last(ending_inventory_market_value)))
valueBox(inventory_value, icon = "ion-soup-can",color = "#21a366")
```

## Column {data-width=500}

### Inventory 

```{r}
plot_inventory
```

### WACOG

```{r}
plot_wacog
```


# Data

-----------------------------------------------------------------------

## Column {data-width=1000}

### Data

```{r}
reactable
```